home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / SAT 2.4.0 & updates ƒ / SAT-TCL and demo / SATTest / SATTest.p < prev    next >
Encoding:
Text File  |  1995-12-18  |  668 b   |  28 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {        SATTest.p                                                                                                                                                                                                                }
  4. {}
  5. {        Main file for SATTest.                                                                                                                                                                            }
  6. {}
  7. {        Copyright © 1995 by Patrick C Hew. All rights reserved.                                                                }
  8. {}
  9. {****************************************************}
  10.  
  11.  
  12. program SATTest;
  13.  
  14.         { Turn off automatic initialization }
  15. {$I-}
  16.  
  17.     uses
  18.         TCL, SATTestIntf;
  19.  
  20. begin { SATTest }
  21.         (* if your program needs extra stack space, call *)
  22.         (* SetMinimumStack here                             *)
  23.  
  24.     new(CSATTestApp(gApplication));
  25.     CSATTestApp(gApplication).ISATTestApp;
  26.     gApplication.Run;
  27.     gApplication.ExitApp;
  28. end. { SATTest }